home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
poptxt.zip
/
TSRDEMO.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-04-18
|
2KB
|
63 lines
Page 60,132
; Zhlp.asm
; Poptext 2.1
; Copyright (c) 1989 Tone Zone Computing
;
; A test of the memory resident feature of Poptext
Code Segment Byte Public
Assume Cs:Code,SS:Stack;
JMP Entry;
Copyright Db 'POPRes Testing Routine'
ByWho Db '(c) 1989 Tone Zone Computing',13,10,'$'
Filename Db 'Poptext.hlp',0,'$'
Error1 Db 'Error: Unable to Start Poptext$'
Entry: Push CS ;Initialize Data Seg
POP DS ;
Assume DS:Code
MOV DX,Offset Copyright ;Copyright Notice
MOV AH,9 ;
INT 21H ;
PUSH CS ;
POP DS ;
Assume Ds:Code
MOV DX,Offset Filename ;DS:DX points to Filename
MOV AH,02 ;OpenHelpFile(Filename);
INT 6EH ;Call POPTEXT
CMP AL,00 ;Is Return OK?
JNZ BADFile ;OOPS
MOV AH,01 ;We want to use the help
MOV AL,01 ;PopTextCard(1)
INT 6EH ;Call POPTEXT
Closeall:
MOV AH,03 ;CloseHelpFile
INT 6EH ;Call POPTEXT
MOV AH,4CH ;Exit
INT 21H ;Call MSDos
BadFile:
MOV DX,Offset Error1 ;Display Error Message
MOV AH,09 ;
INT 21H ;Call MS-Dos
MOV AH,4CH ;Leave
INT 21H ;Call MS-Dos
Code Ends
Stack Segment Word Stack
Stackfill Dw 10000 dup(?)
stack ends
End